
# Fusion level diagram
# ********************

fusionLevel <- function(height,nRow)
{
  plot(height,nRow:2, type="n", main="Fusion levels", xlab="Node height", ylab="Number of clusters")
  lines(height, nRow:2, col="red", lty=2)
  text(height, nRow:2, nRow:2)
}

